home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 3: CDPD 3 / Almathera Ten on Ten - Disc 3: CDPD3.iso / scope / 076-100 / scopedisk78 / sd / path.def < prev    next >
Encoding:
Modula Definition  |  1995-03-19  |  515 b   |  18 lines
  1. DEFINITION MODULE Path;
  2.  
  3. FROM AmigaDOS    IMPORT    FileLock;
  4.  
  5. PROCEDURE PathName(lock : FileLock; VAR dest : ARRAY OF CHAR): BOOLEAN;
  6. (* returns the full AmigaDOS directory/file path given:
  7.  
  8.    lock - a FileLock on a directory or file
  9.    dest - destination string for the path
  10.  
  11.    result:  TRUE  = success   full path is in dest
  12.         FALSE = failure   check IoErr() for more information
  13.         
  14.    If the dest string is not large enough to accommodate the full path
  15.    name, the path will be truncated  *)
  16.         
  17. END Path.
  18.